home *** CD-ROM | disk | FTP | other *** search
/ Coral Reef Screen Saver / Coral Reef Screen Saver.iso / setupc~1.rul < prev    next >
Text File  |  1995-04-13  |  18KB  |  573 lines
  1. //Author                -- Alvin Mullins                                   
  2. //Application           -- Expert Coral Reef Screensaver
  3. //CDS Project        -- Mastered 4/3/95
  4. declare
  5.     #define SPACE_NEEDED    4000000   // APPROX MEM. REQD.
  6.     number nStatusWindowID;
  7.     number nRadio1, nRadio2;
  8.     number nRadio3, nRadio4;
  9.  
  10.     string szDisk [3];
  11.     string szBitmapPath [255];
  12.     string szResultPath [255];
  13.     string szProgramPath [255];
  14.     string szSysDirPath [255];
  15.     string szHelpPath [255];
  16.     string szWorkingPath [255];
  17.     string szIconPath [255];
  18.     string szWinDisk [3];
  19.     string szCDPath[255];
  20.     string szCommandLine[255];
  21.     string szWorkingDir[255];
  22.     string szProgram[255];
  23.     string szWinPath[255];
  24.     string szDefPath[255];
  25.     string szEssPath[255];
  26.     string szResult[255];
  27.     
  28.  
  29. program
  30. CDSCORAL:
  31.     
  32.     SetColor( STATUSBAR, RED );
  33.     SetColor ( BACKGROUND, BK_BLUE );
  34.     SetFont (  FONT_TITLE, STYLE_NORMAL, "Arial"  );
  35.     SetTitle( "Expert Coral Reef ScreenSaver Setup", 24, WHITE );
  36.     Enable( BITMAPFADE );
  37.     Enable( EXIT );
  38.     Disable ( HELP );
  39.     Disable ( FEEDBACK_FULL );
  40.     Enable ( BACKGROUND );
  41.     Enable ( INDVFILESTATUS );
  42.     SetDialogTitle( DLG_ASK_OPTIONS,     "Expert Coral Reef ScreenSaver Setup");
  43.     SetDialogTitle( DLG_ASK_PATH,        "Expert Coral Reef ScreenSaver Setup");
  44.     SetDialogTitle( DLG_ASK_YESNO,       "Expert Coral Reef ScreenSaver Setup");
  45.     SetDialogTitle( DLG_MSG_INFORMATION, "Expert Coral Reef ScreenSaver Setup");
  46.     SetDialogTitle( DLG_MSG_SEVERE,      "Expert Coral Reef ScreenSaver Setup");
  47.     GetDisk( WINDIR, szWinDisk );
  48.     GetDisk( TARGETDIR, szDisk);
  49.     szDefPath = szDisk ^ "XSAVER";
  50.     szBitmapPath = SRCDIR;
  51.     szBitmapPath = szBitmapPath ^ "EXPERT.BMP" ;
  52.     PlaceBitmap( szBitmapPath, 100, CENTERED, CENTERED, CENTERED );
  53.     Delay(3);
  54.     PlaceBitmap( "", 100, CENTERED, CENTERED, REMOVE);
  55.  
  56. //Asking user for path
  57. TargetLocation:
  58.  
  59.     AskPath( "Expert Coral Reef ScreenSaver will be installed \n to the following directory:", szDefPath, szResultPath);
  60.     if LAST_RESULT = FALSE then call ConfirmCancel;
  61.     endif;
  62.     if szResultPath = SRCDIR then
  63.         MessageBox ( "You cannot install the program to the same directory as the Installation files.", SEVERE );
  64.     goto TargetLocation;
  65.     endif;
  66.     CreateDir( szResultPath );
  67.     if LAST_RESULT=0 then goto InstOptn;
  68.     else MessageBox( "Unable to create directory. Please enter a valid path", SEVERE );
  69.     endif;
  70.     goto TargetLocation;
  71.  
  72.     
  73. //Full or Partial Install
  74. InstOptn:
  75.     
  76.     SetDialogTitle( DLG_ASK_OPTIONS, "Type of Installation" );
  77.     nRadio1 = TRUE;        //default setting
  78.     nRadio2 = FALSE;
  79.     
  80.     if ( AskOptions( EXCLUSIVE, 
  81.         
  82.                 "Please select the install method:",
  83.                 "&Full - Copy all the program files to your hard drive.", nRadio1,
  84.                 "&Partial - Program files remain on the CD, must insert CD to use program.", nRadio2 ) = OK ) then
  85.     
  86.         if ( nRadio2 = TRUE ) then
  87.             goto FileFindP;
  88.         else
  89.             goto FileFindF;
  90.         endif;
  91.     else
  92.     
  93.         goto ConfirmCancel;
  94.                 
  95.     endif;
  96.         
  97. //Partial Install
  98. FileFindP:
  99.         
  100.         TARGETDIR = szResultPath;
  101.         goto Partial;
  102.         
  103.         
  104.  
  105. //Full Install
  106. FileFindF:
  107.         
  108.         TARGETDIR = szResultPath;
  109.         if ( FindFile( szResultPath, "Exptsavr.exe", szResult ) =0 ) then
  110.             
  111.             if (LAST_RESULT = 0 ) then
  112.                 
  113.                 SetDialogTitle( DLG_ASK_OPTIONS, "Previous Version Detected" );
  114.                 nRadio3 = FALSE;
  115.                 nRadio4 = TRUE;        //default setting
  116.                     
  117.  
  118.                 if ( AskOptions( EXCLUSIVE,
  119.                     "Setup has detected that you have already installed Expert ScreenSaver",
  120.                     "&Copy all the files to your hard drive.", nRadio3,
  121.                     "&Copy only the image files to your hard drive.", nRadio4 ) = OK ) then
  122.  
  123.                     goto Full;
  124.                 endif;
  125.             
  126.             endif;
  127.         else
  128.             goto Full;
  129.         
  130.         endif;
  131.  
  132. ConfirmCancel:
  133.  
  134.     AskYesNo ("Do you wish to cancel the installation?", NO );
  135.     if LAST_RESULT = NO then goto TargetLocation; endif;
  136.     exit;
  137.  
  138. //Partial Install
  139. Partial:
  140.         
  141.         SetDialogTitle( DLG_STATUS,      "Expert Coral Reef ScreenSaver for Windows Setup");
  142.         nStatusWindowID = StatusCreate( STYLE_DEFAULT, 2, "System" , 9 , 1 );
  143.         StatusSelect ( nStatusWindowID );
  144.         Enable( STATUS );
  145.         SetStatusWindow( 0, "Copying Expert Coral Reef ScreenSaver files. " );
  146.         StatusUpdate( ON, 100 );
  147.         szWinPath = WINDIR;
  148.         TARGETDIR = szWinPath;
  149.         CopyFile( "deco.dll", "deco.dll" );
  150.         CopyFile( "Expert.scr", "Expert.scr" );
  151.         CopyFile( "Expertss.ini", "Expertss.ini" );
  152.         CopyFile( "Reef1.ess", "Reef1.ess" );
  153.         CopyFile( "Reef2.ess", "Reef2.ess" );
  154.         AddProfString( "Control.ini", "ScreenSaver.Expert ScreenSaver", "SlidePack", "C:\\WINDOWS\\REEF1.ESS" );
  155.         goto PartEss;
  156.  
  157. //Partial-Full Install        
  158. PartFull:
  159.  
  160.         szCDPath = SRCDIR;
  161.         szProgramPath = szCDPath ^ "Exptsavr.hlp";
  162.         szIconPath    = szCDPath ^ "help.ico";
  163.         szWorkingPath = szCDPath;
  164.  
  165.         AppCommand( PROGMAN, CMD_MINIMIZE  );
  166.         AddProgItemEx( "Expert Software", "Expert ScreenSaver Help", szProgramPath, szWorkingPath, szIconPath, 0, "", REPLACE );
  167.  
  168.         
  169.         szCDPath = SRCDIR;
  170.         szProgramPath = szCDPath ^ "Exptsavr.EXE";
  171.         szIconPath    = szCDPath ^ "Exptsavr.EXE";
  172.         szWorkingPath = szCDPath;
  173.         
  174.  
  175.         AppCommand( PROGMAN, CMD_MINIMIZE  );
  176.         AddProgItemEx( "Expert Software", "Expert ScreenSaver", szProgramPath, szWorkingPath, szIconPath, 0, "", REPLACE );
  177.  
  178.  
  179.  
  180.         szProgramPath = WINDIR^ "NOTEPAD.EXE " + szCDPath^ "Readme.txt";
  181.         AddProgItemEx( "Expert Software", "Expert ScreenSaver Readme",szProgramPath, szWorkingPath, "", 0, "", REPLACE );     
  182.         AppCommand(  PROGMAN, CMD_MINIMIZE  );
  183.  
  184.         goto SysInfo;
  185.  
  186.  
  187.  
  188. //Full Install
  189. Full:
  190.         GetDiskSpace( szResultPath );
  191.         if LAST_RESULT < SPACE_NEEDED then
  192.             MessageBox ( "There is not enough free space on the hard drive to install Expert Coralreef Screensaver for Windows. \n Minimum 4 MB of Free Disk Space Required", SEVERE );
  193.             goto TargetLocation;
  194.         endif;
  195.         
  196.         SetDialogTitle( DLG_STATUS,      "Expert Coral Reef ScreenSaver for Windows Setup");
  197.         nStatusWindowID = StatusCreate( STYLE_DEFAULT, 2, "System" , 9 , 1 );
  198.         StatusSelect ( nStatusWindowID );
  199.         Enable( STATUS );
  200.         SetStatusWindow( 0, "Copying Expert Coral Reef ScreenSaver files. " );
  201.         StatusUpdate( ON, 100 );
  202.         if( nRadio1 = TRUE ) then
  203.             if ( nRadio4 = TRUE ) then
  204.             CompressGet( "Coralp.z", "*.*", INCLUDE_SUBDIR );
  205.         else
  206.             CompressGet( "Coral.Z", "*.*", INCLUDE_SUBDIR );
  207.             endif;
  208.         endif;
  209.         szWinPath = WINDIR;
  210.         TARGETDIR = szWinPath;
  211.         CopyFile( "deco.dll", "deco.dll" );
  212.         CopyFile( "Expert.scr", "Expert.scr" );
  213.         CopyFile( "Expertss.ini", "Expertss.ini" );
  214.         CopyFile( "Reef1.ess", "Reef1.ess" );
  215.         CopyFile( "Reef2.ess", "Reef2.ess" );
  216.         goto FullEss;
  217.  
  218.  
  219. //Full-Full Install        
  220. FullFull:
  221.  
  222.         
  223.         TARGETDIR = szResultPath;
  224.         szProgramPath = TARGETDIR ^ "Exptsavr.EXE";
  225.         szIconPath    = TARGETDIR ^ "Exptsavr.EXE";
  226.         szWorkingPath = TARGETDIR^ "Coral";
  227.         
  228.  
  229.         AppCommand( PROGMAN, CMD_MINIMIZE  );
  230.         AddProgItemEx( "Expert Software", "Expert ScreenSaver", szProgramPath, szWorkingPath, szIconPath, 0, "", REPLACE );
  231.         
  232.  
  233.         TARGETDIR = szResultPath;
  234.         szProgramPath = TARGETDIR ^ "Exptsavr.hlp";
  235.         szIconPath    = TARGETDIR ^ "Exptsavr.hlp";
  236.         szWorkingPath = TARGETDIR;
  237.  
  238.         AppCommand( PROGMAN, CMD_MINIMIZE  );
  239.         AddProgItemEx( "Expert Software", "Expert ScreenSaver Help", szProgramPath, szWorkingPath, szIconPath, 0, "", REPLACE );
  240.  
  241.         szProgramPath = WINDIR^ "NOTEPAD.EXE " + TARGETDIR^ "Readme.txt";
  242.         AddProgItemEx( "Expert Software", "Expert ScreenSaver Readme",szProgramPath, szWorkingPath, "", 0, "", REPLACE );     
  243.         AppCommand(  PROGMAN, CMD_MINIMIZE  );
  244.  
  245.         goto SysInfo;
  246.  
  247. //Full-Partial Install
  248. FullPart:
  249.         
  250.         
  251.         TARGETDIR = szResultPath;
  252.         szProgramPath = TARGETDIR ^ "Exptsavr.hlp";
  253.         szIconPath    = TARGETDIR ^ "Exptsavr.hlp";
  254.         szWorkingPath = TARGETDIR;
  255.  
  256.         AppCommand( PROGMAN, CMD_MINIMIZE  );
  257.         AddProgItemEx( "Expert Software", "Expert ScreenSaver Help", szProgramPath, szWorkingPath, szIconPath, 0, "", REPLACE );
  258.  
  259.         szProgramPath = WINDIR^ "NOTEPAD.EXE " + TARGETDIR^ "Readme.txt";
  260.         AddProgItemEx( "Expert Software", "Expert ScreenSaver Readme",szProgramPath, szWorkingPath, "", 0, "", REPLACE );     
  261.         AppCommand(  PROGMAN, CMD_MINIMIZE  );
  262.  
  263.         goto SysInfo;
  264.  
  265.  
  266. //Partial Install Write to Ess files
  267. PartEss:
  268.  
  269.         Disable( STATUS );
  270.         
  271.         MessageBox( "Expert ScreenSaver is initializing your system, \n click on Ok. Please Wait!", INFORMATION );        
  272.         Enable( HOURGLASS );
  273.  
  274. //Write path for Reef1.ess        
  275.         szEssPath= SRCDIR^ "anemone.esp"  ;
  276.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  277.                     "slide1", "C:\Coral\anemone.esp", 
  278.                     szEssPath );
  279.  
  280.         szEssPath= SRCDIR^ "angel.esp"  ;
  281.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  282.                     "slide2", "C:\Coral\angel.esp", 
  283.                     szEssPath );
  284.  
  285.         szEssPath= SRCDIR^ "basslet.esp"  ;
  286.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  287.                     "slide3", "C:\Coral\basslet.esp", 
  288.                     szEssPath );
  289.  
  290.         szEssPath= SRCDIR^ "blue.esp"  ;
  291.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  292.                     "slide4", "C:\Coral\blue.esp", 
  293.                     szEssPath );
  294.  
  295.         szEssPath= SRCDIR^ "brown.esp"  ;
  296.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  297.                     "slide5", "C:\Coral\brown.esp", 
  298.                     szEssPath );
  299.  
  300.         szEssPath= SRCDIR^ "cardinal.esp"  ;
  301.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  302.                     "slide6", "C:\Coral\cardinal.esp", 
  303.                     szEssPath );
  304.  
  305.         szEssPath= SRCDIR^ "cleaning.esp"  ;
  306.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  307.                     "slide7", "C:\Coral\cleaning.esp", 
  308.                     szEssPath );
  309.  
  310.         szEssPath= SRCDIR^ "coney.esp"  ;
  311.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  312.                     "slide8", "C:\Coral\coney.esp", 
  313.                     szEssPath );
  314.  
  315.         szEssPath= SRCDIR^ "parrot.esp"  ;
  316.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  317.                     "slide9", "C:\Coral\parrot.esp", 
  318.                     szEssPath );
  319.  
  320.         szEssPath= SRCDIR^ "crab.esp"  ;
  321.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  322.                     "slide10", "C:\Coral\crab.esp", 
  323.                     szEssPath );
  324.  
  325.         szEssPath= SRCDIR^ "grouper.esp"  ;
  326.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  327.                     "slide11", "C:\Coral\grouper.esp", 
  328.                     szEssPath );
  329.  
  330.         szEssPath= SRCDIR^ "trigger.esp"  ;
  331.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  332.                     "slide12", "C:\Coral\trigger.esp", 
  333.                     szEssPath );
  334.  
  335.         szEssPath= SRCDIR^ "lobster.esp"  ;
  336.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  337.                     "slide13", "C:\Coral\lobster.esp", 
  338.                     szEssPath );
  339.         
  340.         szEssPath= SRCDIR^ "coralcod.esp"  ;
  341.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  342.                     "slide14", "C:\Coral\coralcod.esp", 
  343.                     szEssPath );
  344.  
  345.         szEssPath= SRCDIR^ "manta.esp"  ;
  346.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  347.                     "slide15", "C:\Coral\manta.esp", 
  348.                     szEssPath );
  349.  
  350.         szEssPath= SRCDIR^ "rwb.esp"  ;
  351.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  352.                     "slide16", "C:\Coral\rwb.esp", 
  353.                     szEssPath );
  354.  
  355. //Write path for Reef2.ess
  356.         szEssPath= SRCDIR^ "puffer.esp"  ;
  357.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  358.                     "slide1", "C:\Coral\puffer.esp", 
  359.                     szEssPath );
  360.  
  361.         szEssPath= SRCDIR^ "redcoral.esp"  ;
  362.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  363.                     "slide2", "C:\Coral\redcoral.esp", 
  364.                     szEssPath );
  365.  
  366.         szEssPath= SRCDIR^ "seargent.esp"  ;
  367.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  368.                     "slide3", "C:\Coral\seargent.esp", 
  369.                     szEssPath );
  370.  
  371.         szEssPath= SRCDIR^ "starfish.esp"  ;
  372.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  373.                     "slide4", "C:\Coral\starfish.esp", 
  374.                     szEssPath );
  375.  
  376.         szEssPath= SRCDIR^ "jelly.esp"  ;
  377.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  378.                     "slide5", "C:\Coral\jelly.esp", 
  379.                     szEssPath );
  380.  
  381.         szEssPath= SRCDIR^ "rays.esp"  ;
  382.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  383.                     "slide6", "C:\Coral\rays.esp", 
  384.                     szEssPath );
  385.  
  386.         szEssPath= SRCDIR^ "hogfish.esp"  ;
  387.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  388.                     "slide7", "C:\Coral\hogfish.esp", 
  389.                     szEssPath );
  390.  
  391.         szEssPath= SRCDIR^ "seafan.esp"  ;
  392.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  393.                     "slide8", "C:\Coral\seafan.esp", 
  394.                     szEssPath );
  395.  
  396.         
  397.             Disable( HOURGLASS );
  398.             goto PartFull;
  399.         
  400.  
  401. //Full Install Write to Ess files
  402. FullEss:
  403.  
  404.         
  405.         Disable( STATUS );
  406.         
  407.         MessageBox( "Expert ScreenSaver is initializing your system, \n click on Ok. Please Wait!", INFORMATION );        
  408.         Enable( HOURGLASS );
  409.  
  410. //Write path for Reef1.ess
  411.         TARGETDIR = szResultPath^ "Coral";
  412.         szEssPath= TARGETDIR^ "anemone.esp"  ;
  413.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  414.                     "slide1", "C:\Coral\anemone.esp", 
  415.                     szEssPath );
  416.  
  417.         szEssPath= TARGETDIR^ "angel.esp"  ;
  418.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  419.                     "slide2", "C:\Coral\angel.esp", 
  420.                     szEssPath );
  421.  
  422.         szEssPath= TARGETDIR^ "basslet.esp"  ;
  423.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  424.                     "slide3", "C:\Coral\basslet.esp", 
  425.                     szEssPath );
  426.  
  427.         szEssPath= TARGETDIR^ "blue.esp"  ;
  428.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  429.                     "slide4", "C:\Coral\blue.esp", 
  430.                     szEssPath );
  431.  
  432.         szEssPath= TARGETDIR^ "brown.esp"  ;
  433.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  434.                     "slide5", "C:\Coral\brown.esp", 
  435.                     szEssPath );
  436.  
  437.         szEssPath= TARGETDIR^ "cardinal.esp"  ;
  438.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  439.                     "slide6", "C:\Coral\cardinal.esp", 
  440.                     szEssPath );
  441.  
  442.         szEssPath= TARGETDIR^ "cleaning.esp"  ;
  443.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  444.                     "slide7", "C:\Coral\cleaning.esp", 
  445.                     szEssPath );
  446.  
  447.         szEssPath= TARGETDIR^ "coney.esp"  ;
  448.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  449.                     "slide8", "C:\Coral\coney.esp", 
  450.                     szEssPath );
  451.  
  452.         szEssPath= TARGETDIR^ "parrot.esp"  ;
  453.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  454.                     "slide9", "C:\Coral\parrot.esp", 
  455.                     szEssPath );
  456.  
  457.         szEssPath= TARGETDIR^ "crab.esp"  ;
  458.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  459.                     "slide10", "C:\Coral\crab.esp", 
  460.                     szEssPath );
  461.  
  462.         szEssPath= TARGETDIR^ "grouper.esp"  ;
  463.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  464.                     "slide11", "C:\Coral\grouper.esp", 
  465.                     szEssPath );
  466.  
  467.         szEssPath= TARGETDIR^ "trigger.esp"  ;
  468.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  469.                     "slide12", "C:\Coral\trigger.esp", 
  470.                     szEssPath );
  471.  
  472.         szEssPath= TARGETDIR^ "lobster.esp"  ;
  473.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  474.                     "slide13", "C:\Coral\lobster.esp", 
  475.                     szEssPath );
  476.         
  477.         szEssPath= TARGETDIR^ "coralcod.esp"  ;
  478.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  479.                     "slide14", "C:\Coral\coralcod.esp", 
  480.                     szEssPath );
  481.  
  482.         szEssPath= TARGETDIR^ "manta.esp"  ;
  483.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  484.                     "slide15", "C:\Coral\manta.esp", 
  485.                     szEssPath );
  486.  
  487.         szEssPath= TARGETDIR^ "rwb.esp"  ;
  488.         ReplaceProfString( "Reef1.ess", "Picture Slides", 
  489.                     "slide16", "C:\Coral\rwb.esp", 
  490.                     szEssPath );
  491.  
  492. //Write path for Reef2.ess
  493.         szEssPath= TARGETDIR^ "puffer.esp"  ;
  494.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  495.                     "slide1", "C:\Coral\puffer.esp", 
  496.                     szEssPath );
  497.  
  498.         szEssPath= TARGETDIR^ "redcoral.esp"  ;
  499.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  500.                     "slide2", "C:\Coral\redcoral.esp", 
  501.                     szEssPath );
  502.  
  503.         szEssPath= TARGETDIR^ "seargent.esp"  ;
  504.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  505.                     "slide3", "C:\Coral\seargent.esp", 
  506.                     szEssPath );
  507.  
  508.         szEssPath= TARGETDIR^ "starfish.esp"  ;
  509.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  510.                     "slide4", "C:\Coral\starfish.esp", 
  511.                     szEssPath );
  512.  
  513.         szEssPath= TARGETDIR^ "jelly.esp"  ;
  514.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  515.                     "slide5", "C:\Coral\jelly.esp", 
  516.                     szEssPath );
  517.  
  518.         szEssPath= TARGETDIR^ "rays.esp"  ;
  519.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  520.                     "slide6", "C:\Coral\rays.esp", 
  521.                     szEssPath );
  522.  
  523.         szEssPath= TARGETDIR^ "hogfish.esp"  ;
  524.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  525.                     "slide7", "C:\Coral\hogfish.esp", 
  526.                     szEssPath );
  527.  
  528.         szEssPath= TARGETDIR^ "seafan.esp"  ;
  529.         ReplaceProfString( "Reef2.ess", "Picture Slides", 
  530.                     "slide8", "C:\Coral\seafan.esp", 
  531.                     szEssPath );
  532.  
  533.         if (nRadio4 = TRUE ) then
  534.             Disable( HOURGLASS );
  535.             WriteProfString( "Control.ini", "ScreenSaver.Expert ScreenSaver", "SlidePack", "C:\\WINDOWS\\REEF1.ESS" );
  536.             goto FullPart;
  537.         else
  538.             AddProfString( "Control.ini", "ScreenSaver.Expert ScreenSaver", "SlidePack", "C:\\WINDOWS\\REEF1.ESS" );
  539.             goto FullFull;
  540.         endif;
  541.  
  542.  
  543. //Installing System Information Program
  544. SysInfo:
  545.  
  546.         if ( AskYesNo( "The Setup program can also install a System Information Program to your hard drive. This program will provide you with useful information like your computer's memory, disk space, etc.  Please choose Yes to install the Expert System Information Program.", YES ) = NO ) then
  547.             MessageBox( "Expert Coral Reef ScreenSaver has finished installing.  Thank you for purchasing Expert.", INFORMATION );
  548.             AppCommand(  PROGMAN, CMD_MAXIMIZE  );
  549.             exit;
  550.  
  551.         endif;
  552.  
  553.         TARGETDIR = WINDIR;
  554.         szCommandLine = WINDIR^ "\\EXSYSIFO.EXE";
  555.         szIconPath = SRCDIR^ "\\EXSYSIFO.ICO";
  556.         Enable( STATUS );
  557.         SetStatusWindow(0,"Copying Files from Disk");
  558.         StatusUpdate(ON,20);
  559.         CompressGet( "Expert.Z","*.*",COMP_NORMAL );
  560.     
  561.         SetStatusWindow(20,"Copying SysInfo Files from Disk");
  562.         StatusUpdate(ON,100);
  563.         CopyFile( "Setup.exe", "ExSysifo.exe");
  564.     
  565.         SetStatusWindow(100,"Finished Copying Files");
  566.         AddProgItemEx("Expert Software","System Information",szCommandLine,
  567.                szWorkingDir,szIconPath,0,"",REPLACE);
  568.         MessageBox("Expert Software - System Information program \nhas been installed on your system.", INFORMATION );
  569.     
  570.         AppCommand(  PROGMAN, CMD_MAXIMIZE  );
  571.         MessageBox( "Expert Coral Reef ScreenSaver has finished installing.  Thank you for purchasing Expert.", INFORMATION );
  572.  
  573.         exit;